home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / tspa3150.zip / TSERR.TST < prev    next >
Text File  |  1991-01-05  |  916b  |  51 lines
  1. {$R+}  (* Index range check on *)
  2.  
  3. (* This is a test program for the TSERR.TPU unit
  4.    5-Jan-91 *)
  5.  
  6. uses TSERR;
  7.  
  8. procedure LOGO;
  9. begin
  10.   writeln;
  11.   writeln ('TSUNTD unit test by Prof. Timo Salmi');
  12.   writeln ('University of Vaasa, Finland, ts@chyde.uwasa.fi');
  13.   writeln;
  14. end;
  15.  
  16. procedure TEST1;
  17. var s : string[79];
  18.     i : byte;
  19. begin
  20.   i := 80;
  21.   s[i] := ' ';
  22. end;  (* test1 *)
  23.  
  24. procedure TEST2;
  25. var x : real;
  26. begin
  27.   x := 7.0; writeln (1.0/x);
  28.   x := 0.0; writeln (1.0/x);
  29.   x := 7.0; writeln (4.0/x);
  30. end;  (* test2 *)
  31.  
  32. procedure TEST3;
  33. var f : file;
  34. begin
  35.   assign (f, 'c:\NosuchF.ile');
  36.   reset (f);
  37.   close (f);
  38. end;  (* test3 *)
  39.  
  40. (* Main program *)
  41. begin
  42.   LOGO;
  43.   TEST1;
  44.   {}
  45.   TEST2;  { Because test1 results in an error you have to omit it, }
  46.           { if you want test2, and so on }
  47.   {}
  48.   TEST3;
  49.   write ('Press «═╝ '); readln;
  50. end.  (* tsuntd.tst *)
  51.